home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / e / mailinglists / amigae.0294feb.archive / 000062_donews!crash!rb…rmstadt.de!anh_Wed, 16 Feb 94 01:42:16 PST.msg < prev    next >
Internet Message Format  |  1994-05-26  |  8KB
  1. Received: by bkhouse.cts.com (V1.17-beta/Amiga)
  2.       id <1u7g@bkhouse.cts.com>; Wed, 16 Feb 94 01:42:16 PST
  3. Received: from crash by donews.cts.com with uucp
  4.     (Smail3.1.28.1 #18) id m0pWN4Y-0002SlC; Tue, 15 Feb 94 05:32 EST
  5. Received: from rbhp89.rbg.informatik.th-darmstadt.de by crash.cts.com with smtp
  6.     (Smail3.1.28.1 #18) id m0pWMmx-0000S8C; Tue, 15 Feb 94 02:13 PST
  7. Received: from rbhp47.rbg.informatik.th-darmstadt.de by rbhp89.rbg.informatik.th-darmstadt.de with SMTP
  8.     (1.36.108.4/15.6) id AA16333; Tue, 15 Feb 1994 11:13:21 +0100
  9. Received: by rbhp47.rbg.informatik.th-darmstadt.de
  10.     (1.36.108.4/15.6) id AA12165; Tue, 15 Feb 1994 11:13:08 +0100
  11. Message-Id: <m0pWMmx-0000S8C@crash.cts.com>
  12. Date: Tue, 15 Feb 94 11:13:06 MEZ
  13. Full-Name: Olivier Anh
  14. Mailer: Elm [revision: 66.25]
  15. From: Olivier Anh <anh@rbhp56.rbg.informatik.th-darmstadt.de>
  16. To: amigae@bkhouse.cts.com (amiga e mailing list)
  17. Subject: List View and IntuiSuip.library
  18.  
  19. Hi all
  20.  
  21. Yesterday I post a source using the IntuiSup.library and a List View gadget.
  22. My source was coorupt. Well not exactly : The PC disk drive of this $#%^ HP-
  23. UNIX add a sector which doesn't belong to the file, and scratch the end ofd the code. However, reading the file on my Amiga, all is fine. Sooo ?
  24. Here it is again ! and its working...
  25.  
  26. I code this source in my GUI for LHA, and it doesn't work. Well not the list
  27. but when I re-attch the list to the Gadget. The program stop. Ther is not
  28. GURU or alert, other application continues to run... I don't understand.
  29. The problem comes from the IsetGadgetAttributes(). I check the gadgetlist, the
  30. gadget offset, all of these are correct. I don't know where the non-error comes
  31. from !
  32.  
  33. Is there really nobody who codes with the IntuiSup.library v4.7 ?
  34.  
  35. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  36. /* IntuiSup & ListView test UNDER WB1.3 */
  37.  
  38.  
  39. MODULE 'intuisup',
  40.        'graphics/text',
  41.        'intuition/intuition',
  42.        'intuition/screens',
  43.        'libraries/intuisup',
  44.        'exec/lists',
  45.        'exec/nodes'
  46.  
  47. ENUM NONE,ERR_INTUISUP,ERR_REQTOOLS,ERR_WINDOW,BRK
  48.  
  49. CONST WIDCMP     = IDCMP_CLOSEWINDOW OR
  50.                    IDCMP_GADGETUP OR
  51.                    IDCMP_GADGETDOWN OR
  52.                    IDCMP_MOUSEMOVE,
  53.       WFLAGS     = WFLG_DRAGBAR OR
  54.                    WFLG_DEPTHGADGET OR
  55.                    WFLG_CLOSEGADGET OR
  56.                    WFLG_WINDOWACTIVE,
  57.       MAXGADGET  = GADGETSIZE*3,
  58.       RENDERINFO = 0
  59.  
  60.  
  61. DEF win : PTR TO window,
  62.     scr : PTR TO screen,
  63.     msg : PTR TO intuimessage,
  64.     loop, ri, glist, class, code, iaddress, speciallink,
  65.     txtattr,gaddata,
  66.     list : PTR TO mlh,
  67.     count
  68.  
  69.  
  70. PROC main() HANDLE
  71.     intuisupbase:=OpenLibrary('intuisup.library',0)
  72.     IF intuisupbase=NIL THEN Raise(ERR_INTUISUP)
  73.     scr:=NIL
  74.     ri:=IgetRenderInfo(scr,RENDERINFO)
  75.     win:=OpenW(0,11,300,120,WIDCMP,WFLAGS,'Test',0,1,NIL)
  76.     IF win=NIL THEN Raise(ERR_WINDOW)
  77.  
  78. WriteF('1\n')
  79.     list:=New(SIZEOF mlh)
  80.     list.head:=list+4
  81.     list.tail:=NIL
  82.     list.tailpred:=list
  83. WriteF('2\n')
  84.  
  85.     txtattr:=['topaz',8,0,0] : textattr
  86.     gaddata:=[10,0,70,0,100,100,'list view',txtattr,0,0,list,
  87.                1,      0,10,0, 40, 13,'Button'   ,txtattr,0,0,0,
  88.                0,      0, 0,0,  0,  0,          0,      0,0,0,0] : gadgetdata
  89.     glist:=IcreateGadgets(ri,gaddata,0,11,NIL)
  90.     IdisplayGadgets(win,glist)
  91. WriteF('3\n')
  92.     loop:=TRUE
  93.     REPEAT
  94.         WaitPort(win.userport)
  95.         msg:=IgetMsg(win.userport)
  96.         IF CtrlC() THEN Raise(BRK)
  97.         class:=msg.class
  98.         code:=msg.code
  99.         iaddress:=msg.iaddress
  100.         speciallink:=msg.speciallink
  101.         IreplyMsg(msg)
  102.         SELECT class
  103. WriteF('Selection\n')
  104.             CASE IDCMP_CLOSEWINDOW
  105.                 WriteF('CLOSEWINDOW\n')
  106.                 loop:=FALSE
  107.             CASE ISUP_ID
  108.                 WriteF('ISUP\n')
  109. WriteF('code: \d\niadr : \d\nlink : \d \n',code,iaddress,speciallink)
  110.                 dogadget(code)
  111.         ENDSELECT
  112.     UNTIL loop=FALSE
  113.     closeall()
  114. EXCEPT
  115.     closeall()
  116.     IF exception>0  THEN
  117.         WriteF('Couldn\at \s !\n',ListItem(['do anything',
  118.                                          'open IntuiSup.library',
  119.                                          'open ReqTools.library',
  120.                                          'open Window',
  121.                                          'continue\n*** User Break'],
  122.                                          exception))
  123. ENDPROC
  124.  
  125. PROC dogadget(code)
  126.     DEF newnode : PTR TO ln,
  127.         node    : PTR TO ln,
  128.         len,item
  129.     WriteF('Button \d pressed\nAdding item \d\n',code,count)
  130.     IsetGadgetAttributes(glist,0,0,0,USE_CURRENT_VALUE,USE_CURRENT_VALUE,0)
  131.     INC count
  132.     item:=String(30)
  133.     StringF(item,'\d',count)
  134.     len:=StrLen(item)
  135.     node:=list.head
  136.     IF list.head=list
  137.         AddHead(list,newnode)
  138.     ELSE
  139.         AddTail(list,newnode)
  140.     ENDIF
  141.     IsetGadgetAttributes(glist,0,0,0,USE_CURRENT_VALUE,USE_CURRENT_VALUE,list)
  142. ENDPROC
  143.  
  144. PROC closeall()    /* Note that I'm not sure of this PROC but you */
  145.                    /* understand want it does :) */
  146.     IF ri THEN IfreeRenderInfo(ri)
  147.     IF intuisupbase THEN CloseLibrary(intuisupbase)
  148.     IF list THEN Dispose(list)
  149.     IF win THEN CloseW(win)
  150. ENDPROC
  151.  
  152. --
  153. -------------------------------------------------------------------------------
  154.    / / Olivier ANH                        |' And may the Force be with You ! '
  155. \ X /  anh@rbg.informatik.th-darmstadt.de |             - Return of the Jedi -
  156. -------------------------------------------------------------------------------
  157. From donews!crash!dcs.gla.ac.uk!mccracal Wed, 16 Feb 94 09:33:32 PST
  158. Received: by bkhouse.cts.com (V1.17-beta/Amiga)
  159.       id <1u8x@bkhouse.cts.com>; Wed, 16 Feb 94 09:33:32 PST
  160. Received: from crash by donews.cts.com with uucp
  161.     (Smail3.1.28.1 #18) id m0pWPzK-0001wDC; Tue, 15 Feb 94 08:38 EST
  162. Received: from vanuata.dcs.gla.ac.uk by crash.cts.com with smtp
  163.     (Smail3.1.28.1 #18) id m0pWPYa-00002XC; Tue, 15 Feb 94 05:11 PST
  164. Received: from tanaga.dcs.gla.ac.uk by goggins.dcs.gla.ac.uk 
  165.           with LOCAL SMTP (PP) id <00135-0@goggins.dcs.gla.ac.uk>;
  166.           Tue, 15 Feb 1994 13:08:58 +0000
  167. Received: by tanaga.dcs.gla.ac.uk (4.1/Dumb) id AA20556;
  168.           Tue, 15 Feb 94 13:08:50 GMT
  169. Date: Tue, 15 Feb 94 13:08:50 GMT
  170. Message-Id: <9402151308.AA20556@tanaga.dcs.gla.ac.uk>
  171. From: mccracal@dcs.gla.ac.uk
  172. To: AmigaE@bkhouse.cts.com
  173. Subject: Re: I`m new here!
  174.  
  175.  
  176. >     Actually,. tooltypes are really  easy. You just have to get around
  177. > the lack of the amiga.lib functions in E. I have fully functional
  178. > tooltypes code if anyone wants it? (hacked it up  for a commodity I made
  179. > for a friend)
  180.  
  181. Could you mail it to me as I would like to see it please.
  182.  
  183.     Alex McCracken
  184. Weinberg's Second Law:
  185.     If builders built buildings the way programmers wrote programs,
  186. then the first woodpecker that came along would destroy civilization!
  187. From donews!crash!plucky.ike.safb.af.mil!bwills Wed, 16 Feb 94 09:34:00 PST
  188. Received: by bkhouse.cts.com (V1.17-beta/Amiga)
  189.       id <1u9g@bkhouse.cts.com>; Wed, 16 Feb 94 09:34:00 PST
  190. Received: from crash by donews.cts.com with uucp
  191.     (Smail3.1.28.1 #18) id m0pWQLk-0001jmC; Tue, 15 Feb 94 09:02 EST
  192. Received: from kirk.safb.af.mil by crash.cts.com with smtp
  193.     (Smail3.1.28.1 #18) id m0pWQBJ-00003OC; Tue, 15 Feb 94 05:51 PST
  194. Received: from ike (ike [140.175.6.44]) by kirk.safb.af.mil (8.6.4/8.6.4) with SMTP id HAA02492 for <AmigaE@bkhouse.cts.com>; Tue, 15 Feb 1994 07:50:39 -0600
  195. Received: from plucky.safb.af.mil by ike (4.1/SMI-4.1)
  196.     id AA29175; Tue, 15 Feb 94 07:46:46 CST
  197. Received: by plucky.safb.af.mil (4.1/SMI-4.1)
  198.     id AA01509; Tue, 15 Feb 94 07:48:26 CST
  199. Date: Tue, 15 Feb 94 07:48:26 CST
  200. Message-Id: <9402151348.AA01509@plucky.safb.af.mil>
  201. From: bwills@plucky.safb.af.mil (Barry D Wills)
  202. To: 
  203. Subject: Re: Amiga E Bugs...
  204.  
  205. *B) Hi all,
  206. *B) 
  207. *B) Is there anywere a file of all known bug of the Amiga E 2.1b. My club will
  208. *B) spread the french archive I translated in to french. So I'm sure I will be 
  209. *B) asked for bugs..
  210. *B) If there is no file, could all of you send me the bugs YOU know, and Through
  211. *B) the ML. So that sound-likes-bugs could be removed.
  212. *B) Thanx for help
  213.  
  214. Olivier,
  215.  
  216. You should ask Wouter for a list of reported and
  217. *confirmed* bugs instead of taking a poll. :-)
  218.  
  219. -- Barry